home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Dev / fpc / source / docs / refex / ex45.pp < prev    next >
Encoding:
Text File  |  2000-01-01  |  361 b   |  22 lines
  1. Program Example45;
  2.  
  3. { Program to demonstrate the Ord,Pred,Succ functions. }
  4.  
  5. Type
  6.   TEnum = (Zero, One, Two, Three, Four);
  7.   
  8. Var 
  9.   X : Longint;
  10.   Y : TEnum;
  11.   
  12. begin
  13.   X:=125;
  14.   Writeln (Ord(X));  { Prints 125 }
  15.   X:=Pred(X);
  16.   Writeln (Ord(X));  { prints 124 }
  17.   Y:= One;
  18.   Writeln (Ord(y));  { Prints 1 }
  19.   Y:=Succ(Y);
  20.   Writeln (Ord(Y));  { Prints 2}
  21. end.
  22.